procedure putchar(c: char);
begin
	
end;